object OrderForm1: TOrderForm1 Left = 260 Top = 173 BorderStyle = bsDialog Caption = 'Zilch Order Form' ClientHeight = 453 ClientWidth = 632 Color = clTeal Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] KeyPreview = True Position = poScreenCenter OnActivate = FormActivate OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 14 object Image2: TImage Left = 0 Top = 0 Width = 632 Height = 453 Align = alClient Stretch = True end object lblName: TLabel Left = 23 Top = 11 Width = 33 Height = 13 Caption = 'Name' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True OnClick = lblNameClick end object Label2: TLabel Left = 23 Top = 59 Width = 53 Height = 13 Caption = 'Address2' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True OnClick = Label2Click end object Label3: TLabel Left = 23 Top = 35 Width = 53 Height = 13 Caption = 'Address1' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True OnClick = Label3Click end object Label4: TLabel Left = 23 Top = 83 Width = 22 Height = 13 Caption = 'City' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True OnClick = Label4Click end object Label1: TLabel Left = 376 Top = 83 Width = 31 Height = 13 Caption = 'State' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True OnClick = Label1Click end object Label5: TLabel Left = 471 Top = 83 Width = 19 Height = 13 Caption = 'Zip' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True OnClick = Label5Click end object Label6: TLabel Left = 23 Top = 107 Width = 44 Height = 13 Caption = 'Country' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True OnClick = Label6Click end object Label7: TLabel Left = 23 Top = 132 Width = 37 Height = 13 Caption = 'Phone' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True OnClick = Label7Click end object Label8: TLabel Left = 21 Top = 157 Width = 48 Height = 13 Caption = 'Quantity' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True OnClick = Label8Click end object Label23: TLabel Left = 356 Top = 338 Width = 233 Height = 77 Alignment = taCenter AutoSize = False Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True WordWrap = True end object Panel9: TPanel Left = 356 Top = 116 Width = 240 Height = 219 BevelOuter = bvNone Color = clBlack Ctl3D = False ParentCtl3D = False TabOrder = 14 end object Panel8: TPanel Left = 16 Top = 192 Width = 317 Height = 168 BevelOuter = bvNone Color = clBlack Ctl3D = False ParentCtl3D = False TabOrder = 13 end object Name: TEdit Left = 83 Top = 7 Width = 510 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 end object Address2: TEdit Left = 83 Top = 56 Width = 510 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 2 end object Address1: TEdit Left = 83 Top = 32 Width = 510 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 end object City: TEdit Left = 83 Top = 80 Width = 288 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 3 end object ZipCode: TEdit Left = 496 Top = 80 Width = 97 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 5 end object Phone: TEdit Left = 83 Top = 129 Width = 134 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 7 end object EditQty: TEdit Left = 83 Top = 155 Width = 39 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 8 Text = '1' OnExit = EditQtyExit OnKeyPress = EditQtyKeyPress end object State: TComboBox Left = 409 Top = 81 Width = 56 Height = 21 DropDownCount = 10 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 13 Items.Strings = ( '' 'AK' 'AL' 'AR' 'AZ' 'CA' 'CO' 'CT' 'DC' 'DE' 'FL' 'GA' 'HI' 'IA' 'ID' 'IL' 'IN' 'KS' 'KY' 'LA' 'MA' 'MD' 'ME' 'MI' 'MN' 'MO' 'MS' 'MT' 'NC' 'ND' 'NE' 'NH' 'NJ' 'NM' 'NV' 'NY' 'OH' 'OK' 'OR' 'PA' 'RI' 'SC' 'SD' 'TN' 'TX' 'UT' 'VA' 'VT' 'WA' 'WI' 'WV' 'WY') MaxLength = 2 ParentFont = False Sorted = True TabOrder = 4 OnChange = StateChange OnExit = StateExit OnKeyPress = StateKeyPress end object Country: TComboBox Left = 83 Top = 104 Width = 210 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 13 Items.Strings = ( 'USA' 'United States' 'Canada' 'Algeria' 'American Samoa' 'Argentina' 'Austria' 'Australia' 'Belgium' 'Belize' 'Bolivia' 'Brazil' 'Chile' 'Columbia' 'Costa Rica' 'Czechoslovakia' 'Denmark' 'El Salvador' 'Ethiopia' 'Finland' 'France' 'Germany' 'Greece' 'Guam' 'Haiti' 'Hong Kong' 'Hungary' 'Iceland' 'India' 'Indonesia' 'Ireland' 'Isreal' 'Italy' 'Japan' 'Kenya' 'Kuwait' 'Liberia' 'Mexico' 'Netherlands' 'New Zealand' 'Norway' 'Panama' 'Poland' 'Portugal' 'Spain' 'Sweden' 'Switzerland' 'Venezuela' 'United Kingdom') ParentFont = False TabOrder = 6 OnChange = CountryChange OnExit = CountryExit end object Panel2: TPanel Left = 352 Top = 112 Width = 240 Height = 219 BevelInner = bvLowered Ctl3D = True ParentCtl3D = False TabOrder = 9 object Label17: TLabel Left = 5 Top = 89 Width = 80 Height = 13 Caption = 'Software Cost' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label18: TLabel Left = 5 Top = 107 Width = 51 Height = 13 Caption = 'Discount' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label19: TLabel Left = 5 Top = 125 Width = 48 Height = 13 Caption = 'Subtotal' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object LabelTax: TLabel Left = 5 Top = 152 Width = 88 Height = 13 Caption = 'Sales Tax (MD)' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label21: TLabel Left = 5 Top = 170 Width = 115 Height = 13 Caption = 'Shipping && Handling' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label22: TLabel Left = 5 Top = 196 Width = 103 Height = 13 Caption = 'Total Amount Due' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object PCost: TPanel Left = 134 Top = 86 Width = 99 Height = 18 Alignment = taRightJustify BevelInner = bvLowered Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 end object PDiscount: TPanel Left = 134 Top = 104 Width = 99 Height = 18 Alignment = taRightJustify BevelInner = bvLowered Caption = 'PDiscount' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 end object PSubtotal: TPanel Left = 134 Top = 122 Width = 99 Height = 18 Alignment = taRightJustify BevelInner = bvLowered Caption = 'PSubtotal' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 2 end object PTax: TPanel Left = 134 Top = 149 Width = 99 Height = 18 Alignment = taRightJustify BevelInner = bvLowered Caption = 'PTax' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 3 end object PShipping: TPanel Left = 134 Top = 167 Width = 99 Height = 18 Alignment = taRightJustify BevelInner = bvLowered Caption = 'PShipping' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 4 end object PTotal: TPanel Left = 134 Top = 193 Width = 99 Height = 18 Alignment = taRightJustify BevelInner = bvLowered Caption = 'PTotal' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 5 end object Panel10: TPanel Left = 0 Top = 58 Width = 240 Height = 23 BevelInner = bvLowered Caption = 'Invoice Information' Color = clGray Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 6 end object Panel3: TPanel Left = 0 Top = 0 Width = 240 Height = 23 BevelInner = bvLowered Caption = 'Quantity Discounts' Color = clGray Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 7 end object Panel4: TPanel Left = 1 Top = 22 Width = 118 Height = 19 BevelInner = bvRaised BevelOuter = bvLowered Caption = '2 to 4 10%' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 8 end object Panel6: TPanel Left = 121 Top = 22 Width = 118 Height = 19 BevelInner = bvRaised BevelOuter = bvLowered Caption = '25 to 49 20%' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 9 end object Panel5: TPanel Left = 1 Top = 40 Width = 118 Height = 19 BevelInner = bvRaised BevelOuter = bvLowered Caption = '5 to 24 15%' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 10 end object Panel7: TPanel Left = 121 Top = 40 Width = 118 Height = 19 BevelInner = bvRaised BevelOuter = bvLowered Caption = '50 + 25%' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 11 end end object BitBtn1: TBitBtn Left = 18 Top = 372 Width = 82 Height = 27 Caption = 'Go back' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 10 OnClick = BitBtn1Click Kind = bkAbort Spacing = -1 end object BitBtn2: TBitBtn Left = 106 Top = 372 Width = 82 Height = 27 Caption = 'Print' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 11 OnClick = BitBtn2Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0003377777777777777308888888888888807F333333333333370FFFFFFF1F2F 1FF07FFFFFFFFFFFFFF70FFFFFFFFFFFFFF077777777777777770F4444444444 44F07F333333333333F70F888888888888F07F333333333337370FFFFFFFFFFF FFF07FFFFFFFFFFFFFF7300000000000000337777777777777733330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033 33333337FFFF7733333333300000033333333337777773333333} NumGlyphs = 2 Spacing = -1 end object Panel1: TPanel Left = 14 Top = 189 Width = 317 Height = 168 BevelInner = bvRaised BorderStyle = bsSingle Color = clGray Ctl3D = False ParentCtl3D = False TabOrder = 12 object Image1: TImage Left = 2 Top = 2 Width = 311 Height = 162 Align = alClient end object Label9: TLabel Left = 16 Top = 4 Width = 142 Height = 37 Caption = 'ZilchWorks' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -32 Font.Name = 'Arial Narrow' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label10: TLabel Left = 14 Top = 2 Width = 142 Height = 37 Caption = 'ZilchWorks' Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -32 Font.Name = 'Arial Narrow' Font.Style = [fsBold] ParentFont = False Transparent = True end object LabelPhone2: TLabel Left = 139 Top = 44 Width = 166 Height = 24 Alignment = taCenter AutoSize = False Caption = '(301) 932-7027' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -21 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label11: TLabel Left = 10 Top = 35 Width = 121 Height = 34 AutoSize = False Caption = 'To order by phone call Mon-Sat 8am-5pm [EST]' Font.Charset = ANSI_CHARSET Font.Color = clYellow Font.Height = -13 Font.Name = 'Arial Narrow' Font.Style = [fsBold] ParentFont = False Transparent = True WordWrap = True end object Label12: TLabel Left = 10 Top = 68 Width = 296 Height = 92 AutoSize = False Caption = 'We accept Visa, MasterCard and Amex. Credit card orders are ship' + 'ped the next day! Overnight delivery available for an additiona' + 'l fee.' Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -19 Font.Name = 'Arial Narrow' Font.Style = [fsBold] ParentFont = False Transparent = True WordWrap = True end object LabelPhone1: TLabel Left = 138 Top = 42 Width = 166 Height = 24 Alignment = taCenter AutoSize = False Caption = '(301) 932-7027' Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -21 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True end end end